home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / beginners / Examples / counter.bb < prev    next >
Encoding:
Text File  |  2002-04-10  |  609 b   |  28 lines
  1. ; Set display mode variables 
  2. Const width=640,height=480,depth=16
  3.  
  4. ; Set the display mode
  5. Graphics width,height,depth
  6.  
  7. ;Draw to the back buffer
  8. SetBuffer BackBuffer ()
  9. counter = 1
  10. ;Set font to arial size 128
  11. fontno=LoadFont("verdana",128)
  12. SetFont fontno
  13. While Not KeyDown(1); Repeat the following loop until the escape key is pressed
  14. ;Set font colour to psychedelic
  15. Color Rnd(256),Rnd(256),Rnd(256)
  16. counter = counter + 1
  17.  
  18. Cls; Clear screen
  19.  
  20. ;Print current counter number to the screen 195 pixels across by 160 pixels high
  21. Text 195,160,counter
  22.  
  23. ; Flip the screen buffers
  24. Flip
  25.  
  26. Wend
  27.  
  28.